home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / util / wb / BWS_Scalos.lha / BWS_Scalos / Scalos_Rename / loc.e < prev    next >
Text File  |  2001-12-05  |  5KB  |  102 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE 'afc/localer','*locnums'
  5.  
  6.  
  7. PROC startlocale(loc:PTR TO localer); DEF str[256]:STRING
  8. NEW loc.localer()
  9. StrCopy(str,loc.language()) ; StrCopy(str,str,InStr(str,'.'))
  10. StringF(str,'locale:catalogs/\s/Scalos_Rename.catalog',str)
  11. loc.load(str)
  12. ENDPROC loc
  13.  
  14.  
  15. PROC locs(loc:PTR TO localer,id)
  16. SELECT id
  17.  
  18. CASE MSG_EnterName    ; RETURN loc.ret(id,'Enter new name for selected')
  19. CASE MSG_Open            ; RETURN loc.ret(id,'Failed to Open')
  20. CASE MSG_NotCli        ; RETURN loc.ret(id,'Cannot be run from CLI !')
  21. CASE MSG_NoFiles        ; RETURN loc.ret(id,'No Files selected !')
  22. CASE MSG_NoApp           ; RETURN loc.ret(id,'Failed to Create MUI Application')
  23. CASE MSG_EXCEPT        ; RETURN loc.ret(id,'Exception Caused')
  24.  
  25. CASE MSG_Disk        ; RETURN loc.ret(id,'\e1Disk')
  26. CASE MSG_Dir        ; RETURN loc.ret(id,'\e1Dir')
  27. CASE MSG_File        ; RETURN loc.ret(id,'File')
  28. CASE MSG_Error        ; RETURN loc.ret(id,'Error')
  29. CASE MSG_Type        ; RETURN loc.ret(id,'\eu\eiType')
  30. CASE MSG_Name        ; RETURN loc.ret(id,'\eu\eiName')
  31. CASE MSG_Path        ; RETURN loc.ret(id,'\eu\eiPath')
  32. CASE MSG_VolExists; RETURN loc.ret(id,'Already Exists!\n\nThis May confuse your System')
  33. CASE MSG_LabelErr    ; RETURN loc.ret(id,'Error with Relabel')
  34. CASE MSG_RenameErr; RETURN loc.ret(id,'Error with Rename')
  35. CASE MSG_RenameTo    ; RETURN loc.ret(id,'Could not be renamed to')
  36. CASE MSG_Reason    ; RETURN loc.ret(id,'Reason')
  37. CASE MSG_StringEmpty    ; RETURN loc.ret(id,'String Gadget was Empty!')
  38.  
  39. CASE MSG_DirErr    ; RETURN loc.ret(id,'Error Creating Dir')
  40. CASE MSG_DirIsFile; RETURN loc.ret(id,'Cannot MakeDir..\n\n%s\n\nBecause it is a File\n')
  41. CASE MSG_NewDir    ; RETURN loc.ret(id,'Dir Does not exist\n\n%s\n\nCreate a new one ?\n')
  42.  
  43. CASE MSG_RenAcrossDev; RETURN loc.ret(id,'Cannot Rename Across Devices\n\nSupport may be added later')
  44.  
  45. CASE MSG_FileExists; RETURN loc.ret(id,'File already exists')
  46. CASE MSG_FileExOpts; RETURN loc.ret(id,'Options:\n\nReplace= Overwrite file\nNumber = Use "name.1"\nGo Back= Try another name\nForget = Remove from queue')
  47. CASE GAD_FileExOpts; RETURN loc.ret(id,'_Replace|_Number|_Go Back|_Forget')
  48. CASE GAD_RenCan;     RETURN loc.ret(id,'_Rename|_Cancel')
  49.  
  50. CASE MNU_Main            ; RETURN loc.ret(id,'Main')
  51. CASE MNU_About            ; RETURN loc.ret(id,'  About')
  52. CASE MNU_Quit            ; RETURN loc.ret(id,'Quit')
  53. CASE MNU_Settings        ; RETURN loc.ret(id,'Settings..')
  54.  
  55. CASE MSG_YesNo       ; RETURN loc.ret(id,'_Yes|_No')
  56.  
  57. CASE GAD_Ok              ; RETURN loc.ret(id,'_OK')
  58. CASE GAD_Skip          ; RETURN loc.ret(id,'_Skip')
  59. CASE GAD_Cancel        ; RETURN loc.ret(id,'_Cancel')
  60.  
  61. CASE MSG_NewVerGads; RETURN loc.ret(id,'\eb_Download|_Forget it')
  62. CASE MSG_chk       ; RETURN loc.ret(id,'Update\en\e0\nCheck online for newer Versions\n\n(Must have an active internet connection)')
  63. CASE MSG_unfound     ; RETURN loc.ret(id,'was not found in versions.dat?\nPlease Email the author about this')
  64. CASE MSG_latest     ; RETURN loc.ret(id,'You Have The Latest Version :)')
  65. CASE MSG_better     ; RETURN loc.ret(id,'Your Version Seems to be better than mine ?')
  66. CASE MSG_found        ; RETURN loc.ret(id,'Upgrade Found :)')
  67. CASE MSG_aborted     ; RETURN loc.ret(id,'Process was Aborted')
  68. CASE MSG_UpdError  ; RETURN loc.ret(id,'Update Error!')
  69. CASE MSG_complete  ; RETURN loc.ret(id,'Dowload Completed..\n\nNew Archive Saved to Ram:')
  70.  
  71. CASE MSG_InfoLab; RETURN loc.ret(id,'Info Label:')
  72. CASE MSG_ShowLab; RETURN loc.ret(id,'Show Label:')
  73. CASE MSG_LabItems; RETURN loc.ret(id,'Label Items:')
  74. CASE MSG_ShowType; RETURN loc.ret(id,'Show Type:')
  75. CASE MSG_ShowName; RETURN loc.ret(id,'Show Name:')
  76. CASE MSG_StringGad; RETURN loc.ret(id,'String Gadget')
  77. CASE MSG_StrPaths; RETURN loc.ret(id,'\erShow Full paths in String:')
  78. CASE MSG_ShowPop; RETURN loc.ret(id,'\erShow PopFile Gadget:')
  79. CASE MSG_Highlight; RETURN loc.ret(id,'\erAuto highlight Filenames:')
  80. CASE MSG_OnReturn; RETURN loc.ret(id,'\erRename on <Return>:')
  81. CASE MSG_QueueList; RETURN loc.ret(id,'Queue List')
  82. CASE MSG_ShowQueue   ; RETURN loc.ret(id,'Show the Queue List:')
  83. CASE MSG_ShowTitles  ; RETURN loc.ret(id,'Show Titles in List:')
  84. CASE MSG_ListColumns ; RETURN loc.ret(id,'List Columns')
  85. CASE MSG_ShowPath   ; RETURN loc.ret(id,'Show Path:')
  86. CASE GAD_Save   ; RETURN loc.ret(id,'_Save & Quit')
  87. CASE GAD_Use   ; RETURN loc.ret(id,'_Use & Quit')
  88. CASE GAD_Refresh; RETURN loc.ret(id,'Use & _Refresh')
  89. CASE GAD_Update   ; RETURN loc.ret(id,'_Online Update Check')
  90. CASE GAD_Ignore   ; RETURN loc.ret(id,'Ignore and _Quit')
  91. CASE MSG_PrefChange   ; RETURN loc.ret(id,'\ec\eu\e1Your configuration has Changed\en.\e0\n\n\el   Use = Save to Env:\n  Save = Save to ENVARC:\nIgnore = Don''t Save')
  92. CASE MSG_InList   ; RETURN loc.ret(id,'Is already in the list')
  93.  
  94. ->CASE MSG_   ; RETURN loc.ret(id,)
  95. ->CASE MSG_   ; RETURN loc.ret(id,'')
  96. ->CASE MSG_   ; RETURN loc.ret(id,)
  97.  
  98.  
  99. ENDSELECT
  100. ENDPROC
  101.  
  102.